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-742 1 
DISKSVMSMAST ER: CPATCH. SRCIPATSIO. 832: a (1) 
MODULE PATSIO ( 


Zee 


VARIANT EQL 1 
ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE), 


NT = 'V04-000") = 
BEGIN 


ASE SSSELASE LEE EEE ESSE SET TTT ECCS CPPS PSCC CSCS CC CCS CC eT CT eC C cece eT cece ccc e aes 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


* 
® 
*® 
® 
:* THIS SOFTWARE IS faite “m? A_ LICENSE AND MAY BE yee AND Age * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH aint SE AND WITH THE * 
!® INCLUSION OF THE ABOVE gpd hed NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!® TRANSFERRED. ® 
® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 
® 
® 
® 
® 
* 
* 
® 


!® AND SHOULD NOT BE CONSTRUED AS A COMMITMENI BY DIGITAL EQUIPMENT 
'® CORPORATION. 
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0 
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1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

: 

1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
: !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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Vee ERR REET 
' 


FACILITY: PATCH 


++ 
FUNCTIONAL DESCRIPTION: 
FAO FORMATTING ROUTINE 


penal w le lelolololololelololololola) DQooooocooco 
lololelejlolelelelelololo) Sssssss Ss Ss 


Version: x01.05 


=O OONAVUE WN $0 ODNAUESWN (OOD ONAUS WN HOD ONOUS WR 


FS EAWAWNAWNW AWN POMP NINNPONP 2 2 eS 


BeBe Be Oe Be Be Be Be Be Se Be Se Se He Be Be Se Se Se Se Se Ge Se He OH Ss Be Oe Se Oe Oe Ss Oe Oe Oe Se Oe Oe Oe Se Se Se Ss Oe Se Oe Se SESH SESH oe BH Se Be ae 


i 

i 

i 

i 

i 

i 

0040 i wiatery: 
0041 uthor: ; 

42 0042 i Carol Peters, 01 Oct 1976: Version 01 
43 0043 i 
44 0044 i Modified by: 
45 0045 ! Kathleen Morse, 13 Oct 1977: Version 16 
46 0046 i 
47 0047 i Revision history: 
rt | Bee 0 DATE PROGRAMMER PURPOSE 
50 0050 i 00 13-O0LT-77 K.D. MORSE ADAPT VERSION 14 TO PATCH. 
51 0051 i 01 15=-DEC-77 K.D. MORSE ADD JOURNAL OUTPUT 
52 tt ! 02 25-APR-78 . MORSE CONVERT TO NATIVE COMPILER 
53 005 i 03 18-MAY-78 K.D. MORSE NO CHANGES V ‘ 
54 0054 i 04 13-JUN-78 K.D. MORSE ADD FAO COUNTS TO SIGNALS. 
55 0055 i 05 29-JUN-78 K.D. MORSE NO CHANGES FOR VERS 16. 
56 0056 i 
57 0057 ie 


c-- 
i 
i 
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PATSIO 16-Sep-1984 09 15:54 VAX-11 Bliss-32 V4.0-742 2 a 
v04-000 14-Sep-1984 12:52:47  DISKSVMSMASTER:CPATCH. SRCIPATSIO. B32. 1% 625 V 
: 59 0058 1 FORWARD ROUTINE 
: 60 0059 PATSFAO_OUT: NOVALUE; ! ROUTINE TO FORMAT AND OUTPUT A STRING 
ee 0061 1 LIBRARY V SYSSLIBRARY STARLET.L32"; 
. ¢ 0062 1 REQUIRE ‘SRC$:SYSLIT.RE 
> 64 0119 1 REQUIRE 'SRCS:VXSMAC_REQ': 
: 65 0177 1 REQUIRE ‘SRC$:PATPCT.REQ’: 
>: 66 0217 1 REQUIRE ‘SRC$:PATGEN.REQ’: 
> oF 0439 1 
: rt beet a PAT SURTTEFILE: NOVALUE, ! WRITES TO A FILE 
; 20 Que SYS$FAOL: ADDRESSING MODE (ABSOLUTE); i ROUTINE TO FORMAT AN ASCII STRING 
; we 0444 1 EXTERNAL 
ta. 0445 1 PATSGL_ERRCODE, | ERROR CODE 
> 7% 0446 1 PATS$cL~ “JNLRAB: BLOCK C, BYTE], i RAB FOR JOURNAL FILE 
. 0447 1 PATSGL~OUTRAB: BLOCK [, BYTE): i RAB for SYS$OUTPUT 


= --------- 


— A ee — - ——E - cc 


| 
PATS $32 Sep-1984 00:15:54 VAX=11 Bliss-32 V4.0-742 3 PAT 
v04- $00 14- =3007 1382 19:53:23 DISKSVMSMASTER:CPATCH.SRCIJPATSIO. B32 os * (3) v04 
; 4 pees ! GLOBAL ROUTINE PATSFAO_OUT (STRING, ARGUMENTS) : NOVALUE = : 
: 79 0450 1 !++ : 
; 9 deel : FUNCTIONAL DESCRIPTION: : 
we $c8$ 1! SETS UP INPUT AND OUTPUT STRING DESCRIPTORS, AND THEN CALLS : 
P18 0454 1! FAO TO FORMAT THE STRING. THEN SENDS THE FORMATTED STRING TO : 
; ee Bee? : THE TERMINAL : 
3 Hy] poet } IF THE OUTPUT FAILS, A FATAL ERROR IS REPORTED. : 
; 688 0459 1 ! CALLING SEQUENCE: § 
; 0460 1! : 
; 0461 1! PAT$FAO_OUT () | 5 
wea. Bros ee | 3 
ee. 0465 1 ! INPUTS: : 
We. 0464 1! ; 
: (94 0465 1! STRING - THE ADDRESS OF A COUNTED CONTROL STRING TO FAO ; 
: 95 0466 1! ARGUMENTS - MAY BE ABSENT. ARGUMENTS TO BE APPLIED TO THE ; 
; #496 0467 1! FAO CONTROL STRING. 3 
: 97 0468 1! 3 
: «98 0469 1 ! IMPLICIT INPUTS: 3 
; 99 0470 1! 3 
; 0477 1! NONE ; 
3; 101 0472 1! $ 
; 102 0473 1 ! OUTPUTS: 3 
3; 103 0474 1! 3 
: 104 0475 1! NONE : 
; 105 0476 1! 3 
: 106 0477 1 ! IMPLICIT OUTPUTS: 3 
3 107 0478 1! 3 
; 108 0479 1! NONE 3 
: 109 0480 1! 
: 110 0481 1 ! ROUTINE VALUE: 
s Te 0483 1! NOVALUE 
3 (113 0484 1! 
3 (114 0485 1 ! SIDE EFFECTS: 
: 115 0486 1! 
: 116 4 H4 i THE FORMATTED STRING IS OUTPUT ON THE TERMINAL. ON ERROR, EXITS. 
; 118 0489 1 
3 (119 0490 2 BEGIN 
: 120 0491 
s tel 049 MAP 
: 122 049 STRING: REF VECTOR C, BYTE]; ' FAO CONTROL STRING 
: 123 0494 3 
3 126 0495 LOCAL 
5 Ves 0496 2 OUT_BUF: VECTOR CITY_OUT_WIDTH, BYTE], ' FORMATTED MESSAGE BUFFER 
: 126 0497 2 INP"DESC: VECTOR £84. ' FAO CONTROL STRING DESCRIPTOR 
3 127 0498 2 OUT~DESC: VECTOR (2); ! FORMATTED MESSAGE DESCRIPTOR 
: 128 0499 
: 14 0500 !¢+ 
: 130 0501 ' SET UP FAO CONTROL STRING DESCRIPTOR AND FORMATTED 
3 13) 0306 i ;_MESSAGE STRING DESCRIPTOR. 
; 135 0504 iNP_DESC [0] = .STRING (0); ! SET SIZE OF STRING 


Rad Ree eee eae y waeegege 


PATSIO 16-Sep-1984 00:15:54 VAX=-11 Bliss-32 V4.0-742 4 PA 
| ¥04-000 1e-8ep-1984 99:33:29 DISKSVMSMASTER: CPATCK.SRCJPATSIO. B32, 1° (33 v0é 
: 134 0505 INP_DESC [1] = STRING (1); ' SET ADDRESS OF STRING 
; 136 0506 2 OUT"DESC to} = TTY_OUT_WIBTH; i SET MAX MESSAGE WIDTH 
: 136 0507 2 OUT-DESC (1) = OUT “BUF; i SET MESSAGE ADDRESS 
3 0508 
: 138 0509 \++ 
: 139 0510 if FORMAT THE MESSAGE. 
; 141 Og SYSSFAOL (INP_DESC, PAT$GL_OUTRAB CRAB$W_RSZJ, OUT_DESC, ARGUMENTS); 
: 128 0514 $ 'e¢ 
3 144 0515 i Qutput the formatted message. If this fails, then exit as there 
3 102 B29 3 i is no way to communicate with the patcher. 
. Sar 0518 2 PATSGL_OUTRAB CRABSL RF = 
> 148 0519 2 PATSGL-ERRCODE = $PUT ( = PATEOL “OUTRAB); 
> 149 0520 2 IF NOT .PATSGL _ERRCODE 
: 150 0521 2 THEN 
». 995 0522 2 SIGNAL (.PA13GL_ERRCODE); 
> 152 0523 2 PATSURITEF ILE. PATSGL_OUTRABLRAB$W_RSZJ, OUT_BUF, PATSGL_JNLRAB); 
> 153 0524 1 END; 
.TITLE PATSIO 
“IDENT \V04-000\ 
.EXTRN PATSWRITEFILE, SYSS$FAOL 
-EXTRN PATSGL_ERRCODE, PAT$GL_JNLRAB 
.EXTRN PATS$GL-OUTRAB, SYSS$PUT~ 
.PSECT _PATSCODE,NOWRT,2 | 
000c 00000 .ENTRY PATSFAO_OUT, Save R2,R3 1 0448. 
53 000000006 EF 9E 00002 MOVAB PATS$GL_ERRCOD ; 
52 000000006 EF 9E 00009 MOVAB PATSGL SOUTRAB® $4, R2 : 
SE FF70 CE 9E 00010 MOVAB -144(SP), ; 
04 AE 04 BC 9A 00015 MOVZBL asTRING INP DESC + 0504 | 
08 AE 04 AC 01 C1 OO01A ADDL3 TRING. INP_DESC+4 : 0505 | 
7E 84 BF 9A 00020 MOVZBL Ai $2." : 0506 | 
04 AE 10 AE 9E 00024 MOVAB f bur "OUT _DESC+4 : 0507 | 
08 AC 9F 00029 PUSHAB ARGOM MENTS : 0512 | 
04 AE 9F 0002C PUSHAB OUT_DESC ; 
52 DD 0002F PUSHL ; 
14 AE 9F 00031 PUSHAB i : 
000000006 9F 04 FB 00034 CALLS #4, a#SYSSFAOL : 
06 A2 10 AE 9E 00038 MOVAB OUf_BUF, PAT$GL_OUTRAB+40 : 0518 
DE A2 9F 00040 PUSHAB PATS$GL_OQUTRAB : 0519 
000000006 00 01 FB 00043 CALLS #1, SYSS$PUT : 
63 50 DO 0004A MOVL RO PATSGL ERRCODE ; | 
09 63 £8 00040 BLBS RO, PA -ERRCODE, : 0520 | 
63 DD 00050 PUSHL PATSGL-ERRCODE. : 0522 
000000006 00 01 FB 90052 CALLS #1, LIBSSIGNAL : 
000000006 EF 9F 00059 1$: PUSHAB PATSGL JNLRAB > 0523 | 
14 AE 9F 0005F PUSHAB OUT F 
7E 62 3C 90062 MOVZWL OA TSeL OUTRAB+34, -(SP) : 
000000006 EF 03 FB 0006 CALLS #3, PATSWRITEFILE : 
04 0006C RET > 0524 


=——————————_——c“r- eee ee  OOmOmm——_ ee on 


13 
PATSIO 1b-Se 1984 00:15:54 VAX=11 Bliss=-32 V4.0-742 Page 5 
v04=000 1228681382 99:43:29 DISKSVMSMASTER:CPATCH.SRCIPATSI0.B32; 1° (3). 
; Routine Size: 109 bytes, Routine Base: _PATSCODE + 0000 


: Elapsed Time: 00:22.5 
3; Lines/CPU Min: 


6324 

; Lexemes/CPU-Min: 16881 

; aomeey Used: 60 pages 
a 


; Compilation Complete 
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¥042000 1e-8ep- 1984 83:53:27 DL SKSVMGMASTERSCPAT ON SRcIPATSI0.832¢3°" (4S vor 
; 0525 1€E ; 
; 156 0526 0 ELUDOM : 

-EXTRN LIBSSIGNAL : 
; PSECT SUMMARY ; 
; Name Bytes Attributes 
:  _PATSCODE 109 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; 
: Library Statistics 
; cccecoce Symbols -------- Pages Processing : 
: File Total Loaded Percent Mapped Time : 
;  ,$25S$DUA28:(SYSLIBISTARLET.L32; 1 9776 6 0 581 00:01.0 | ; 
; COMMAND QUALIFIERS | : 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/VARIANT:1/LIS=LIS$:PATS10/OBJ=OBJ$:PATSIO MSRC$:PATSIO/UPDATE=(ENH$:PATSIO) | 3 
; Size: 109 code + 0 data bytes : 
: Run Time: 00:05.0 : 


- 


